‘Democracia é a pior forma de governo, com exceção de todas as demais’ . Churchill
Presidente do Supremo Tribunal Federal (STF), Cármen Lúcia, suspendeu a posse da deputada federal Cristiane Brasil (PTB-RJ) como ministra do Trabalho.
A cerimônia de posse estava marcada pelo governo Temer para as 9h desta segunda (22), mas foi cancelada.
Cármen analisou uma reclamação movida por um grupo de advogados, que contestou no STF a decisão do Superior Tribunal de Justiça (STJ) que, no sábado (20), havia liberado a posse de Cristiane Brasil.
# base de dados
data("mtcars")
# media
mean(mtcars$mpg)
## [1] 20.09062
#
par(bg="#8bd2dd")
plot(mtcars$mpg,mtcars$hp,col="blue",pch=19,xlab="milhas por galão",ylab="cavalos de potência",main="Diagrama de Dispersão")
abline(lsfit(mtcars$mpg,mtcars$hp),col="blue",lty=2,lwd=4)
cor(mtcars$mpg,mtcars$hp)
## [1] -0.7761684
MC<-cor(mtcars[,c("disp","drat","hp","mpg","qsec","wt")])
library(corrplot)
## Warning: package 'corrplot' was built under R version 3.5.1
#corrplot(MC,method="circle")
corrplot.mixed(MC)
Figura - o STF
O grupo, o mesmo que conseguiu nas primeiras instâncias barrar a deputada de assumir a pasta, alega que a nomeação da filha de Roberto Jefferson contraria o princípio da moralidade, determinado pela Constituição, por causa de condenações que Cristiane Brasil sofreu na Justiça Trabalhista.
Figura - Político
A presidente do STF afirmou que sua decisão é “precária e urgente” e pode ser revista, mas aceitou “parcialmente a providência liminar para a suspensão do ato de posse”. Na despacho da decisão, Cármen Lúcia diz ter tomado a decisão “com base no poder geral de cautela e nos princípios constitucionais da segurança jurídica e da efetividade da jurisdição, que seriam comprometidos com o ato de posse”. A ministra deu 48 horas para as partes se manifestarem e pediu a manifestação da Procuradoria-Geral da República sobre o assunto.
Figura - o SOL
Cármen Lúcia suspende posse de Cristiane Brasil para o Ministério do Trabalho
#library(ggmap)
#qmap(location = "rio de janeiro",maptype="satellite",zoom=14)
resultado<-c(11000,240000,19000,-500,-9000,1000,-2000)
ano<-c("2010","2011","2012","2013","2014","2015","2016")
dadosgrafico1<-data.frame(ano,resultado,stringsAsFactors = TRUE)
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 3.5.1
grafico<-ggplot(data=dadosgrafico1,aes(x=ano,y=resultado))+geom_bar(stat="identity",fill=c("#10c6d3","#0ea5af","#0b8b93","#096c72","#064144","#10c6d3","#0ea5af"))+
ylab("Resultado Primario")+
xlab("Ano")+
theme_minimal()
library(plotly)
## Warning: package 'plotly' was built under R version 3.5.1
ggplotly(grafico)
#grafico
#library(readxl)
#teste <- read_excel("C:/Users/Lucas Leite/Desktop/teste.xlsx")
# sheet="Tabela1"
#library(DT)
#datatable(TableSTN4)
mtcars <-within(mtcars, {am <-factor(am,labels=c('Manual','Automatico'))})
library(plotly)
p<-plot_ly(data=mtcars,x=~hp,y=~mpg, color=~am)
p
## No trace type specified:
## Based on info supplied, a 'scatter' trace seems appropriate.
## Read more about this trace type -> https://plot.ly/r/reference/#scatter
## No scatter mode specifed:
## Setting the mode to markers
## Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
## Warning: package 'bindrcpp' was built under R version 3.5.1
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
library(visNetwork)
## Warning: package 'visNetwork' was built under R version 3.5.1
nodes<-data.frame(id=1:15)
edges<-data.frame(from=sample(1:15,10),to=sample(1:15,10))
visNetwork(nodes,edges,width="100%")
Filha do ex-deputado Roberto Jefferson, presidente do PTB e condenado no processo do mensalão, Cristiane Brasil foi anunciada como ministra pelo presidente Michel Temer no dia 3, mas tem enfrentado uma batalha na Justiça para assumir a pasta.
data("mtcars")
modelo1 <-lm(mpg~hp,data=mtcars)
modelo1
##
## Call:
## lm(formula = mpg ~ hp, data = mtcars)
##
## Coefficients:
## (Intercept) hp
## 30.09886 -0.06823
A Estimativa do \(\beta_1\) desse modelo linear simples é -0.0682283
A média \(\bar{x}\) do MPG dessa base de dados é 20,09062. E o \(\sigma\) é 6,026948. Por fim, a \(\sigma^2\) é 36,3241.
library(plotly)
p<-plot_ly(
x=c("Rio de Janeiro","São Paulo","Brasilia"),
y=c(20,14,23),
name="cidades",
type="bar"
)
p
Cinco dias após o anúncio, a Justiça Federal suspendeu a posse da deputada, após o grupo de advogados trabalhistas apresentarem a ação questionando a nomeação.
Após sofrer três derrotas no Tribunal Regional Federal da 2ª Região (TRF-2), na segunda instância, o governo tinha conseguido reverter a decisão de suspender a posse no STJ. Mas a decisão do STF adiou novamente a nomeação.
O que você achou dessa notícia?
Excelente
Bom
Não Gostei
Equação - Regressão Linear MQO \[ Y_i = \beta_0 + \beta_1x_1 + \epsilon \]